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EDITORIAL 


Bonjour chez vous, 


28 novembre 1985, numéro 29, une trentaine de pages . Vous voyez le 
problème ! Non ? Le contract est actuellement de 550 pages par an avec notre 
nouvel imprimeur. Nous aurons donc dorénavant de gros numéros et d’autres 
moins importants comme celui-ci. 


Cela nous permettra enfin de sortir des numéros de 100 pages et plus en cas 
de besoins et des numéros plus simples durant les périodes de creux ou de 
moindre activité. 


Les numéros doubles vont être décalés dans le temps durant le courant de 
l’année 1986 pour se retrouver aux périodes de salons et d'examens (Printemps et 
Automne). Cela nous permettra d'être encore plus disponible pour toutes les 
manifestations extérieures. 


Nous n'avons qu’une très petite rubrique assembleur en ce mois de 
novembre mais je vous rassure tout de suite : le SIG n’est pas mort. Au contraire, 
nos contacts sont très nombreux et s'étendent même maintenant à l'étranger. Je 
vous promets beaucoup de très belles réalisations et de bons petits Lex pour les 
prochains numéros. Nous économisons nos pages ce mois-ci, pour vous fournir un 
superbe cadeau de Noël ! 


Quelques nouvelles des Etats-Unis : des modules 32 ko de la même taille que 
nos chers modules 4 ko actuels seront mis en vente durant le premier trimestre 
1986 pour la somme de 200 dollars. Enfin, toujours pour le HP71, Richard 
Nelson nous annonce dans CHHU la venue d’une ROM 64 ko d'acquisition de 
données au prix de 195 dollars et la sortie prochaine d’un adaptateur double 
boucles HPIL. 


Bonne lecture à tous et à très bientôt... 


Michel MARTINET 
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LL, 


PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC PARIS se réunit une 
fois par mois, en plein coeur de Paris. Amenez votre 
matériel, votre bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos collègues de 
PPC. Ces réunions se déroulent de manière très libre, aucun 
ordre du jour, discussion ou autre n'étant imposé. Un 
membre du Bureau est toujours présent. Ainsi, si vous 
désirez remettre votre article tout frais au journal, si 
vous avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

75010 PARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 215. 
Attention, toutefois, de venir entre 16 et 19 h. 


Pour l'accès en métro, trois possibilités s'offrent à vous 

à savoir: 

Métro Strasbourg St Denis: sortie Porte St Martin / Bld St 
Denis, coté pairs. 

Métro République: sortie Bld St Martin, coté pairs. 

Métro J. Bonsergent: Sortie Bld Magenta, coté impairs. 


J'oubliais: JPC est souvent distribué en avant-première 
lors de ces réunions ... À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (16h-19h) 
- Le Samedi 7 DECEMBRE 85 
- Le Samedi 11 JANVIER 86 


À Bientôt... 
Pierre DAVID 
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François LEGRAND (PC171) 
Rue Josse Impens 99 
1030 Bruxelles - BELGIQUE 


Remarque à propos de La fonction "VAL": 


Si La chaine traitée par VAL ne commence pas 
par un chiffre, VAL renvoie La valeur de La 
variable numérique ayant pour nom La première 
Lettre de La chaîne traitée par VAL. 


Exemple: 
1. Q=0 à VAL ('QWERT') donne 0 
2. @=15 à VAL('QWERT') donne 15 


Est-ce un bug, ou est-ce normal? 
Réponse du docteur JPC 


La définition de La fonction "VAL", est: Donne 
la valeur de La chaîne comme si c'était une 
expression numérique. 


Je pense qu'une petite précision s'impose: 


1. VAL('chaîne') renvoie toujours 0 si cette 
chaîne ne peut être remplacée par une chaine 
numérique (comme Les suites de Lettres). 

2. Si vous remplacez La première Lettre part un 
nombre, La fonction renvoie ce nombre. 

3. Si vous utilisez une chaîne du genre 
"32+25/5", Le calculateur calculera La valeur 
numerique de cette chaîne soit 37, puis renverra 
ce nombre. 

4. une application toute trouvée, est Le calcul 
d'expressions polynomiales: 

Par exemple =3 @Q  VAL('12*X"2+4*x-71)" 
renverra 113. 

Remarque: La fonction VAL respecte Les demande 
de position par Les crochets, 
VAL('qWerT82az'[6]), renverra 82. 


Philippe 


JEGOUZO Christian 
5, rue de l'Ardèche 
44800 St Herblain (Tel.: 40 95 18 77) 


1) Je recherche des personnes possédant ou 
travaillant sur compatible PC dans la région de 
NANTES pour échanges de programmes et d'idées. 
Je travaille sur PERSONNA 1600. 

2) Quelqu'un du club possède-t-il Le module 





CIRCUIT ANALYSIS. Pourrait-il nous Le décrire ou 
m'en parler ? 

3) AVERTISSEMENT: Je mets en garde Les membres 
du club, qui seraient intéressés par un 
regroupement de modules, face à certaines 
pratiques dont j'ai été victime. En effet, ayant 
confié un X-Fonction version 1C et 2 modules 
X-Memory à Eric MONSENEGO (PARIS XV), Le 12 Juin 
85, pour un groupement, j'ai eu La désagréable 
surprise de m'apercevoir que le module 
X-Fonction version 1C avait été remplacé par un 
module X-Fonction version 1B. Même si à priori, 
il existe peu de différence entre ces 2 
versions, je pouvais m'attendre à un peu plus 
d'honnèteté pour un prix de 450 Francs Le 
regroupement. Je n'ai ce jour, et malgré les 
promesses de M. MONSENEGO, pas récupéré un 
module triple à La bonne version. 


Christophe PETITJEAN 
Résidence Universitaire 
Chambre 824 

91025 Evry Cedex 


Monsieur, 


J'aurai besoin d'un programme pour une HP41CV 
qui se trouve dans La bibliothèque des 
utilisateurs HP sous La référence: 
25083 Programmation Linéaire 
Méthode Simplex 1. 


Avec mes remerciements, veuillez, Monsieur 
agréer mes sincères salutations. 


C. PETITJEAN 


Chers amis, 

Je m'adresse à tous Les membres du club. Vous 
savez que L'UPLE n'existe plus aussi, si l'un de 
vous a fait une étude sur Le sujet, ou si vous 
avez ce programme, envoyez Le à cet utilisateur 
de 41. 


Je vous remercie d'avance de votre compréhension. 


Philippe. 
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TROUILLAS 

Editions Télémaque 

15, Passage des petites Ecuries 
75010 PARIS 


Cherche, 


Un membre du club pour pouvoir travailler sur 
un microprocesseur 8bits, quelqu'il soit, pour 
créer Une ROM (codification vidéotex). Le 
travail consiste à mettre en mémoire des pages 
vidéotex, à faire défiler en scrolling avant et 
arrière, plus d'autres procédures d'appel de 
centre serveur via Le minitel. Le stockage 
devant éventuellement se faire sur des chips 
CMOS jusqu'à 64k maximum. 


PS: une esquisse tourne déjà sur unité de 
disquettes. 


Merci de répondre rapidement. 


Trouillas 


Jean-Pierre FASSIOLA, 11 avenue des Lacs, 94100 
St Maur (Tel.: 48 83 61 08 après 18h30). Vends 
une interface vidéo (TV MONITEUR) HP82163 et une 
imprimante thermique HP82162A (boucle 
interface). Matériel pratiquement neuf et prix à 
débattre. 


Wilfrid  FELIHO, 19 rue L. Casanova, 77270 
Villeparisis (tel.: 64 27 53 37). Vends HP41CV + 
lecteur de cartes + HP82104A + imprimante 
HP82143A, Le tout à 4800FF, état neuf. Vend 
d'autre part une très belle montre SEIKO neuve à 
800FF. 


François LEGRAND, rue Josse Impens 99, 1030 
Bruxelles BELGIQUE; ou rue de La Poterie, 
Trévignon 29128 Trégunc FRANCE. Vends imprimante 
82143 (2200FF) + Lecteur de cartes 82104 
(1200FF) + 2 XMEM 82181 (2*450FF) + 11 card 
holder avec 40 cartes 97-13141 (11*120FF) + 40 





cartes 97-13160 (40*3FF) + pour  HP67/97 
(compatible HP41) nav pac (150FF) et math pac 
(150FF). Soit un total neuf de 6040FF. Le tout, 
soldé à 5000FF avec livres et programmes. Soit 
une réduction de 60% par rapport au prix neuf 
(tarif RAC). Vends également 80 microcassettes 
HP82176A pour lecteur HP82161A eu prix de 9OFF 
pièce! Ces cassettes sont neuves, d'origine HP 
et sous emballage d'origine scellé. 


INDJEHAGOPIAN Jean-Pierre, 142 Grande Rue, 
92380 Garches (Tel.: Dom. 30 38 38 00, Dom. 47 
41 21 97). Vend une imprimante 24 colonnes 
HP82143 peu servi (+ rouleaux de papier 
impression noire) à 1100FF, un lecteur de 
cassette HPIL HP82161A, neuf, jemais servi à 
2700FF, une interface vidéo HP82163B à 1400FF, 
une PPCROM avec manuel d'utilisation, jamais 
servi à 600FF. Factures, modes d'emploi et 
emballages d'origine fournis. 


Philippe DAVASE, 7 Rue Ho Chi Minh, 78500 
SARTROUVILLE (Tel.: Dom. 39 13 51 67, Bur. 47 57 
31 40 poste 451). Vends: une imprimante 
graphique GP100A Seiïkosha interfaçage Sté 
Sicape-Vincennes, Totalement interfacée boucle 
HPIL, compatible HP41-HP71-HP75 + interface 
centronic d'origine matrice 5*7, 116 caractères 
alpha+symboles graphique point par point, 80 
caractères par Ligne, entrainement papier par 
picots, papier de Llarg.=4,5 à 10 pouces, très 
peu servie et vendue à 3000FF. Une imprimante HP 
24 colonnes, HPIL HP82162, vendue à 2500FF. Tout 
ce matériel peut-être échangé contre autre 
matériel HP compatible HP71B ou HPIL. 

Vends d'autre part un micro-ordinateur SHARP 
MZ80B, 64k RAM utilisateur, 32k RAM graphique, 
processeur Z-80A (8 bits), écran 9 pouces, haute 
résolution graphique 320*200, affichage 40 
caractères * 25 Lignes ou 80 caractères * 25 
lignes, gestion cassettes par soft, Lecteur de 
cassettes intégré, 6 slots dans l'unité 
centrale, horloge intégrée, gestion totale du 
curseur, sortie son et haut parleur, clavier 
ASCII - QWERTY, majuscules et minuscules, 
symboles graphiques, 10 touches fonctions 
programmables, pavé numérique séparé. Un double 
lecteur de disquettes SHARP, disquettes 51/4, 
2*350k, double face, double densité, 70 pistes, 
16 secteurs/piste, soft sector. Une imprimante 
grahique bidirectionnelle 80P5B, 80 
caractères/seconde, impression à aiguilles, 
entrainement à picots réglables, 230 sortes de 
caractères, matrice g*8, 40-80-68-136 
caractères/ligne, papier Listing Larg=4" à 10", 





fonction graphique intégrale, nombre de 
lignes/page programmable. Deux boites de 
rangement disquettes + 80 disquettes, 70 
cassettes spéciales testées micro-informatique. 
Liste des programmes disponibles disquettes: 
Multiplan, Wordstar, Mailmerge, Spelstar, CP/M, 
Dbase2, Friday, Wordmaster, T/Maker, Mbasic + 
Expand + Compilateur, Forth, 5 Basics, F-Dos, 
Assembleur  Z80, Propascal, Supercalc, Cobol, 
Walcore, Langage C, The Last One, Calcstar + 
Graphique, Datastar, Ascom, Langage PL1, 
Mu-Math,  Mu-Simp, + 9 disquettes de jeux. 
Nombreux Livres sur CP/M et Z80. Le lot vendu à 
12000FF ou échange contre table  traçante 
HP7470-HPIL ou tout autre matériel 
Hewlett-Packard. 


Vincent HERLICQ (P81), Tel.: (1) 46 40 15 33. 
Vend périphériques HPIL en très bon état: 1 
HP82161A (lecteur de cassette) de septembre 84 + 
4 cassettes dont 1 neuve à 3000FF, 1 HP82162A 
(imprimante) de 1983 + 3 rouleaux de papier 
thermique à impression noire à Z2200FF et 150 
cartes magnétique pour HP41 (dans étuis) au prix 
de 120FF Les 50 ou 300FF Le tout. 


Michel MARTINET, 119 Rue de Bagneux - 91120 
MONTROUGE - Vend ... voir JPC no 28, 27, 26, 25, 
24 etc. : même prix qu'en octobre 1985. 


HEWLETT-PACKARD GRAPHIC LANGUAGE 


Chose promise, chose due ! Dans Le compte-rendu 
du SICOB paru au mois de septembre dans JPC, je 
vous avait parlé de La table traçante HP 7475A 
que nous avait prétée La Règle A Calcul. Grâce à 
cette table, nous avons pu réaliser de 
splendides démonstrations et, par conséquent, 
éveiller la curiosité des visiteurs de 
l'exposition. Pour cela,il nous fallait en plus 
de La table une chose indispensable: des 
programmes. Et ces programmes il a bien fallu 
les faire. Hewlett-Parcard nous a bien aidé en 
nous donnant un super programme de démo de 19 Ko 
qu'il a fallu quand même modifier car il avait 
été écrit pour La vidéo allemande PAC SCREEN, 
qui possède quelques petites différences avec 
Les tables HP. 





Parlons maintenant de L'HPGL: Ce langage est 
constitué d'un ensemble de commandes permettant 
de piloter des “systèmes! graphiques (traceur, 
mais aussi vidéo). IL faut savoir que des 
fabricants autres qu'HP ont adopté ce Langage 
pour leur matériel. 


Voyons voir de plus près ce fabuleux langage. 
Tout d'abord plusieurs remarques : 


- La Liste des fonctions qui suit constitue 
L'HPGL de La table HP7475A, Je pense que Les 
tables HP plus importantes disposent d'autres 
fonctions. 

- Les commandes HPGL sont constituées de deux 
lettres, abréviation de la fonction, et 
éventuellement d'un ou plusieurs paramètres. 

- J'ai classé arbitrairement ces commandes en 
deux groupes : celles que l'on peut voir 
s'effectuer (fonctions de traçage) et Les autres 
(fonctions de configuration par exemple). 

- J'ai ensuite fait des sous-groupes pour 
rendre La Lecture plus claire. 


1. Premier groupe : 
a. Les fonctions de tracé de cercles et d'arcs. 


- AA : syntaxe AA x, y, angle [,pas d'angle] ; 
permet de faire un arc de cercle centré sur x,y 
d'angle et de pas spécifiés. 

- AR : identique à AA mais Les coordonnées 
sont relatives c'est à dire données par rapport 
à La position actuelle de La plume. 

- CI : syntaxe CI rayon [,pas d'angle] : 
permet de faire des cercles centrés sur La plume 
mais aussi divers polygones. Par exemple, CI 
1000,45 ferra un octogone, CI 2000,90 un carré 
etc... 

- EW : syntaxe EW rayon, angle de départ, 
angle, pas ; permet de tracer Un secteur centré 
sur Le point courant, très pratique pour faire 
des camenberts. 

- WG : identique à WE mais colorie Le secteur 
spécifié. 


b. tracé de rectangles 


- EA : syntaxe EA Xx,y ; trace un rectangle en 
se servant du point courant et du point absolu 
X,Y: 

- ER 

- RA 


identique à EW mais x,y est relatif. 
identique à EA mais colorie Le rectangle. 
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- RR : identique à ER mais colorie Le rectangle. 
c. fonction de déplacement de La plume. 


- CP : syntaxe CP [s,l] ; déplace Le stylo de 
s espaces et de L lignes. 

- PU : syntaxe PU ; permet de lever Le stylo. 

- PD : identique mais Le baisse. 

- PA : syntaxe PA x,y[,x,y[...1] : déplace le 
stylo aux points spécifiés par Les coordonnées 
absolues. 

- PR : identique à PA, mais Les coordonnées 
sont relatives. 

- LB : syntaxe LB c...ct ; place La table en 
mode label c'est à dire qu'elle écrit tous les 
caractères qu'elle reçoit, et ce jusqu'à ce 
qu'elle reçoive un caractère spécial lui 
indiquant d'arrêter (t). 

- SP : syntaxe SP [n] ; sélection du stylo n. 

- UC : syntaxe UC 

{contrôle-stylo,]xinc,yinc,[....]; trace un 
symbole défini par l'utilisateur. 

- XT : syntaxe XT ; trace Un trait de 
graduation sur l'axe des x. 

- YT : identique mais sur l'axe des y. 


11.Deuxième groupe : 
a. fonction de configuration 


- IN : syntaxe IN; initialise la table. 

- IM : syntaxe IMe; définition de La valeur 
du masque d'erreur. 

- DC : syntaxe DC ; fin de digitalisation. 

- DT : syntaxe DT t; définition du caractère t 
comme terminateur de texte (cf.LB). 

- DF : syntaxe DF;: remet La table dans les 
conditions de mise sous tension. 

- CA : syntaxe CA n ; définit Le jeu de 
caractère n comme jeu secondaire. 

- LT : syntaxe LT n ; définition du type de 
trait pour le tracé. 

- SS : syntaxe SS ; passage au jeu de 
caractères principal. 

- SA : indendique à SS mais pour Le jeu 
secondaire. 

- VS : syntaxe VS v; sélection de La vitesse 
de tracé. 

- FT : syntaxe FT t,p,a ; sélection du type de 
remplisage, du pas et de l'angle pour les 
fonctions RA, RR et WG. 

- PS : syntaxe PS ; sélection du format du 
papier. 

- SM : syntaxe SM  [c] 3  Sélectionnne le 
caractère de code ASCII © comme symbole de 
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marquage c'est-à-dire comme caractère dessiné à 
chaque appel d'un point. 

- TL : syntaxe TL a [,b]; définit La Longueur 
des traits de graduation de part et d'autre de 
l'axe (cf. XT et YT). 

- SC : syntaxe SC [xmin, ymin, xmax, ymax] ; 
fonction très intéressante; permet à 
l'utilisateur de définir une échelle. 

- IP : syntaxe IP (x, y1 [,x2, y21] ] :; 
définit Les coordonnées des points P1 et P2 qui 
sont deux points particuliers de La table. 

- IN: syntaxe IW [xmin, ymin, xmax, ymax] ; 
définit Les limites de La fenêtre de tracé. 

- RO : syntaxe RO ; rotation du système d'axe 
de 90 degrés. 

- PT : syntaxe PT ; sélection de La largeur de 
plume pour Les remplissages. 

b. configuration du mode texte. 

- DI : syntaxe DI L x, y ] définit la 
direction absolue. 

- DR : identique mais direction relative. 

- SI : syntaxe SI [ l,h ] ; fixe la taille 
des caractères (largeur et hauteur). 

- SL : syntaxe SL [I t ] ; définition de 
l'inclinaison des caractères; t est La tangente 
de l'angle avec La verticale. 


c. fonction de lecture. 


Les fonctions suivantes s'emploient sans 
paramètre et indique au plotter d'envoyer des 
choses. 
- DA : envoie Les coordonnées actuelles et 
l'état du stylo (levé ou baissé). 
- OC : identique, mais pour Le dernier point 
spécifié par Le calculateur. 
- OD : identique, mais pour Le dernier point 
digitalisé. 
- OE : envoi de La dernière erreur HPGL. 
- OF : envoi de La résolution de La table. 
- OI : envoi du type de La table. 
00 : envoi des spécifications de La table. 
- OP : envoi des coordonées de P1 et de P2. 
OS : envoi du statut de La table. 
- OW : envoi des coordonnées des coins 
bas-gauche et haut-droite de La fenêtre. 
- OH : identique mais pour La surface maximale 
de tracé. 


Parlons un peu matériel pour ceux qui sont 
intéressés par L'HPGL: le plotter 7475 est 
disponible avec Les interfaces HP-IB et RS-232 
LL vous faudra donc une interface HP-1B/HP-IL ou 





RS-232/HP-IL soit environ 4000 francs. Pour ce 
prix, plus celui de La table, vous aurez La chance 
d'avoir un splendide et performant matériel qui 
ferra l'envie de tous ! 

Pour Les plus modestes, HP propose La 7470A 
disponible en RS, 1B et IL. L'HPGL y est moins 
puissent : pas d'instruction de remplissage de 
zone. Il n'y de tracé de rectangle sur les 
versions 1IB et RS ni de fonction de tracé de 
cercles sur La version HP-IL. 

En dehors d'HP, et à ma connaissance, il existe 
plusieurs tables interfacée CENTRONICS, IB ou RS 
qui causent HPGL. Encore mieux, nos voisins et 
amis allemands de PAC HARDWARE ont conçu une 
interface vidéo texte et graphiques qui comprend 
une partie de L'HPGL décrit plus haut avec 
parfois quelques nuances par rapport à HP, mais 
elle dispose de particularités interessantes 
comme La hard-copie d'écran sur CENTRONICS ou 
THINKJET. 


Parlons un peu Logiciel pour ceux qui sont 
intéressé par L'HPGL : il existe pour HP-41 Le 
module plotter HP82184A qui, avec 8 Ko de ROM, 
dont une bonne partie est en assembleur, permet 
de piloter un traceur HP ou Le PAC SCREEN et de 
tracer des codes-barres. Pour 75 : rien à ma 
connaissance ; pour 71 il a été écrit un LEX par 
S.BARIZIEN et J.J.DHENIN regroupant certaines 
fonctions de L'HPGL. 


Pour finir, je tiens à remercier M. Eric 
GENGOUX PPC#108 qui m'a aïimablement prété le 
manuel de son PAC SCREEN, et à proposé à vous, 
lecteur de JPC d'écrire des articles comme 
celui-ci; c'est-à-dire des articles qui sortent 
des rubriques habituelles du journal et 
permettent de constituer des espèces de 
mini-dossiers sur tel ou tel sujet. Un domaine 
vous intéresse particuliérement (les interfaces 
RS-232, HP-IB, L'HP-IL, Les Langages  FORTH 
etc...) n'hésitez plus envoyez vos articles au 
journal. Pour ma part, j'espère pouvoir vous 
parler bientôt de l'interface HP-IL/RS232 et de 
ce que l'on peut faire avec. 


Jacques BAUDIER PPC#192 (3*2°6) 


NOTE DE LA REDACTION: Le mois prochain: dossier 
sur Les interfaces vidéo disponibles sur le 
marché. 


JPC 29 Page 


7 










PR progremme : % 


de 













Metho de realisation 








‘ 
d un progremme: 






Un ordre chronologique est Ne Ce Ssair<. 










Expe se” du pro bleme 





"de quoi s'asik- Li 







—_ Cémminr le Hraiver 2 


À lu premiee gueshon Ên ra pond por La de Finition prete des 






besoins 


= de finikion du sujet à Fraiter 









Volume des Lrançachons 








Par:o ducite” de hraite ments 






_ dela: de femisc des rasoltohs 









_ avantage y \ncon vinitnts de la selvhon. 






À \a devsxieme question On repond pare 






= Tuven baie. ‘ds riiollals € eblenir ; décider da lx Forme 






de cesx-ei : Ecren), Vmprimen yAsgutt, cassette 





Es Th ventaire de, donni< d'enbrse : depuis le clavier Ov le, 






Éichurs : 






— Nolsmée. dus d'ansii d VeaiEs hembs ds curactees, 


d o) Fichiers 










— Le dicevpage du besitimer en blocs de Conchron 





Dessiner l'orqa n\gramme : debut, Saisie ar clavier leche de 





Fichur, e dih'on r Etribhre d: Fichiers, Ron deprogra mme. 














Nom du progrèmme : Page: 
3 


Symbole Po Orÿyanrgra mme de Pr og"e mm ah'on : 












En De Lt ov fin d'un erpanigramrae 





EnVrec : mike 23 d'ipesiho d'a ‘nformahen 8 Fraiben 





Serbe: enre<e g is Vremen Y A ra Cormabisa bruitée 





© pc ratren qui déber mine parbiellemen ov comple Hmin + 






la voit % £civre dan) mm Lm branchemen + ov un Vous — programme, 





Egalem emY vhilise” pour mabhre va arpv'llage en posihen. 






EFxphlitahon de condih'ons melhples impligvant 84 choix 






) 
oÀ Une Yoic parmi plosieues. 






9 OGE 


rai Verre Y Opêrahon OV grepe d'eprabhons portant Sur de donnit 





4 hmiter peur lagrelles Un symbole parheuier nht (LE 





dtEini. 
Asa Ensemble décision ra pr sentant une Av plosieurs 
pren 


: | | : 
Fonchons access Lles depuis Fun des n'voavx quiconque s 









dv progra Mmes - 


kssure \o conhnuite Av ES PA leriqgulonme ligne 


de l'stson ne pet bre pe presente. par exemple. 







Commen barres. 










En exemple ci-joint un organigremm d'un frogpremme 


développe” por de besoins {re Fe sronel s- 









âge: 


Dote: Nom d 
v progrèmme : 
Pape [TE 2 















7 - [froduhron) à 
Cennevillicrs 


(LS de 













CF 29 


[ F2% CesT 
x 2 


call dv 
Reste a 


Comman der 






Réfihage 
dutetalen 


Consente 


HP41 


GILBERT TISSERAND XROM AVEC LE MODULE ZENROM 
CHRISTIAN JEGOUZO SPECIAL BOURSE 
JEAN-PIERRE TOYRE BASE 10 BASE 12 BASE ... 
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Programmer des XROM sans leur module 
avec Le ZENROM. 


(2 ou 3 pression de touche suffisent); 


Mode PRGM, 
Pour Les XROM 00,00 à 03,07 avec: 
160, -- 


TU 


Pour Les XROM 04,00 à 07,07 avec: 
161,-- 


Pour Les XROM 28,00 à 31,07 avec: 
167,-- 


(AE 


Après La lecture des codes barres de la 
fonction correspondante au préfixe désiré, 
entrer Le suffixe en décimal du numéro XROM 
souhaité, i.e.: 


"00" à #63" pour Le premier préfixe. 

Mé4" à MEEX 27" pour le deuxième préfixe. 

MEEX 28" à "EEX 91" pour le troisième préfixe. 
MIND 64" à "IND EEX 27" pour Le quatrième préfixe. 


Le suffixe entré en décimal 
modulo 64 Le numéro du XROM. 


XR &7|XRS-111X12-15/X14-191X20-23/X24-27[X28-31 
NO 213 |INO 34 |IND 35 |INO 36 |INO 37 [INO 38 |INO 39 
1é1 * 1162 * [163 @ [164 s |165 Z [166 & 1167 


représente 








XROM BYTES XROM BYTES 
00,00 160,00 06,00 161,128 
00,63 160,63 06,63 161,191 
01,00 160,64 07,00 161,192 
01,63 160,127 07,07 161,199 
02,00 160,128 07,08 161,IND 72 
02,63 160,191 07,63 161,IND 127 
03,00 160,192 28,00 167,00 
03,07 160,199 28.63 167,63 


03,08 160,IND 72 29,00 167,64 
03,63 160,IND 127 29,63 167,127 


04,00 161,00 30,00 167,128 
04,63 161,63 30,63 167,191 
05,00 161,64 31,00 167,192 
05,63 161,127 31,07 167,199 


Notez que Le ZENROM n'est utile que pour les 
préfixes supérieurs à 99. Ces préfixes XROM ne 


sont pas nouveaux, mais Le ZENROM leur apporte 
quelques prolongements. 


TISSERAND (PPCP 54) 
42, Ave. du Gal. de Gaulle 
77500 CHELLES 


SPECIAL BOURSE 


Le programme BOU2 que je vous propose vous 
aidera à gérer votre portefeuille d'actions. Ce 
programme de 429 octets nécessite Le X-Functions 
et travaille sur Le fichier ASCII "ACTION" (30 
regs ou plus). Un enregistrement comprend Le nom 
de La valeur (12 caractères maximum), Le nombre 
de titres possédés et La valeur moyenne de 
l'action. 


On initialise Le progremmme par XEQ  “#BOU2' 
(création automatique du fichier ACTION). 
Voici Les options proposées: 


A: Achat d'actions = Enregistrement 


exemple: 
MACHAT NOM ? “ EUROMARCHE R/S 
"Nb TITRES ? “ 10 R/S 


HVALEUR ? " 12020 R/S (entrer le 
total des achats, soit 1202 Frs/titre.) 
MEUROMARCHE (rappel du nom de La valeur) 
R/S ou XEQ À pour 
autres achats. 
B: Vente d'actions 
NVENTE NOM ? " EUROMARCHE R/S 
"Nb TITRES 7? " 5 R/S 
HVALEUR ? " R/S (inutile Lors 
d'une vente.) 
C: Consultation rapide 
Affiche Le nom des valeurs, puis leur 
nombre et La valeur par titre. 
MEUROMARCHEN puis #5 1202.00 F" 


c: Consultation et Comparaison des cours 

Lors de l'apparition du nombre de titres et 
de Leur valeur, vous pouvez appuyer sur R/S (ou 
autre touche): 

MCOURS ? " 1500 (cours du jour) R/S 





M+VALUE 24.79%" (plus value réalisée) 
“1490.00 FRS (bénéfice net réalisé) 
Retour consultation 


D: Comparaison des cours 
MCOURS PREC. 7?" 1202 
MNb TITRES ?1 5 
"COURS 7?" 1400 
M4VALUE 16.47%" 

“990.00 FRS! 


R/S (cours d'achat) 
R/S (facultatif) 
R/S (cours actuel) 


(0 si Nb titres 
omis) 


E: Efface Le fichier ACTION 
G:Efface Le programme et restitue Les assignations 


Ayant modifié Le pgm BOU, déjà paru dans JPC 
(11/84), je vous en donne aujourd'hui La 
dernière version. Ce programme de 461 octets 
permet Les calculs de base sur Les obligations. 
Vous devez bien-sür vous munir d'un journal 
financier pour connaître Les cours. 


Initialisation: XEQ BOU 


A: MPAIR ?" 5000 R/S 
MTAUX 71 13.9 R/S (taux brut) 
MCOUP. 695.00" (coupon brut) 


b : Donne Le taux net 
MTAUX 12.51%! (taux brut -10%) 
c : Donne Le coupon net 
MCOUP. 625.50" (coupon brut -10%) 
B : Modification du taux brut 
MTAUX 7?" 15 R/S 
MCOUP. 750.00" (coupon brut) 
C : Modification du coupon brut 
MCOUP ?" 770 R/S 
MTAUX 15,40%" (taux brut) 


D: Calcul du taux équivalent 


MCAP INIT ?" R/S (utilise La valeur du 
pair) 

MCAP FIN ?1 R/S (utilise La valeur du 
coupon) 

MDUREE ?" 10 R/S (10 périodes an/mois 


/trimestre...) 
NT.EQ 8.45%" 
ou bien 
MCAP INIT ?" 5000 R/S 
MCAP FIN 2" 11255 R/S 


MDUREE 7?" 10 R/S NT.EQ 8.45%" 





E: Calcul du gain en % : Idem option D, 
MGAIN 138,60%! 


n" 


: Calcul de La valeur d'une obligation à une date 
donnée 
MDETACH ?" 30.07 R/S (coupon détaché Le 30/7 


chaque année) 
"DATE ?" 6.101985 R/S (date complétée) 
MCOUP. 2.36%" R/S (coupon couru = 2.36%) 
MCOTE ?" 104 R/S (104%) 
MVAL.106.36%" R/S (affiche La valeur 
totale en %) 
MFRAIS 24 R/S (0 si r/s, >0 si achat, 


<0 si vente) 
(valeur totale en 
francs) 


"5318.25" 


G: Capital final d'un plan épargne Logement 
MCAP INIT ?# 5000 R/S 


MPRIME 2" 300 R/S (chaque mois) 

MTAUX 7?" 9 R/S (taux du PEL 7.5 %X 
maintenant) 

MPERIODE ?" 12 R/S (cas de versements 
mensuels) 

"DUREE ?" 60 R/S (5 ans * 12 mois) 

"30155.653" (capital final en FF.) 


H:Fin du programme et restitution des assignations 


Christian 


Programme 'BOU' (461 octets). 


01*LBL "BOU'" 
CLKEYS FIX 2 SF 27 
DMY 


O5*LBL A 
" PAIR ?" PROMPT 
STO 00 


O9*LBL B 
SF 00 XEQ 18 STO 01 


13*LBL 01 
1 E1 % - STO 02 
RCL 00 RCL 01 % 
STO 03 X<>Y RCL 02 % 
STO 04 FS?C 02 RTN 
RCL Z XEQ 19 


30*L8L b 
RCL 02 SF 01 XEQ 18 
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GTO B 


35*LBL C 

SF 00 XEQ 19 STO 03 
RCL 00 / 1E2 * 

STO 01 SF 02 XEQ 05 
RCL 01 SF 01 XEQ 18 


49*LBL c 
RCL 04 XEQ 19 GTO C 


53*LBL D 

CF 22 " CAP INIT ?" 
PROMPT FC? 22 RCL 00 
CF 22 " CAP FIN ?" 
PROMPT FC? 22 SF 03 
" DQOREE ?" PROMPT 
FC?C 03 GTO 01 STO Z 
RCL 04 * RCL 00 + 
RCL Z 


74*LBL 01 

FS?C 04 RTN 1/X X<> Z 
/XSY YX1E - 

1 E2 * " T.EQ" SF 01 
XEQ 20 GTO D 


90*LBL 18 
" TAUX" GTO 00 


93*LBL 19 
“ COUP." 


95*LBL 00 
FS? 00 " ?" 


98*LBL 20 
FC?C 00 ARCL X FS?C 01 
M %" PROMPT RTN 


105*LBL E 

SF 04 XEQ D RDN %CH 
" GAIN" SF 01 XEQ 20 
GTO E 


116*LBL F 

M DETACH ?" PROMPT 

CF 22 " DATE ?" PROMPT 
FC? 22 DATE RCL X 

1 E2 * FRC 1 E2 / 

ST+ Z RDN DDAYS 365 
X<>Y X<0? + 1 + 365 

/ RCL 02 * SF 01 

XEQ 19 " COTE ?" 
PROMPT + # VAL" SF 01 
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XEQ 20 RCL 00 % CF 22 
" FRAIS 7" PROMPT 

FC? 22 0 X 18.6 %x + 

+ VIEW X STOP GTO F 


164*LBL G 

M CAP INIT ?" PROMPT 
STO 00 " PRIME ?" 
PROMPT STO 02 

" TAUX ?" PROMPT 1 E2 
/ " PERIODE ?" PROMPT 
/ STO 01 LASTX 

" DUREE 7?" PROMPT 

RCL 00 RCL 02 - 


185*LBL 03 

RCL 02 + RCL 01 1 + 

* DSE Y GTO 03 VIEW X 
STOP GTO G 


197*LBL H 
CLA PCLPS END 


Programme 'BOU2' (429 octets). 


O1*LBL "BOU2" 

CLKEYS SF 27 "ACTION" 
30 SF 25 CRFLAS 

CLST STOP 


O9*LBL 1 
CLA ARCL 00 ARCL 01 
PROMPT 


14*LBL A 
CF 02 " ACHAT! 


17*LBL 10 

CF 00 O SEEKPT 

M NOM ?!! AON PROMPT 
AOFF ASTO 00 ASHF 
ASTO 01 CLA ARCL 00 
ARCL 01 POSFL -1 X=Y? 
SF 00 “ Nb TITRES ?" 
PROMPT " VALEUR 7" 
CF 22 PROMPT FC? 22 0 
FS? 22 GTO 00 FS? 02 
RTN X<>Y / LASTX 

XEQ 15 APPREC GTO 1 


52*LBL 00 

GETREC DELREC FIX 2 
ANUM O STO N RDN 
ANUM X<>Y FS? 02 RTN 
* LASTX ST+ T RDN + 


X<>Y / LASTX XEQ 15 
INSREC GTO 1 


7S*LBL J 
CLA ARCL 00 ARCL 01 
PROMPT 


80*LBL B 
SF 02 “ VENTE" XEQ 10 
FC? 00 RCL 99 R* - 
X=0? GTO J X<0? SORT 
XEQ 15 INSREC GTO J 


95*LBL c 
SF 01 GTO 02 


98*LBL C 
CF 01 


100*LBL 02 
CF 00 CF 02 O SEEKPT 


105*LBL 09 

GETREC ANUM STO 01 95 
POSA AROT ANUM STO 00 
X<>Y CHS AROT ALENG 
58 POSA ANUM - 


122*LBL 01 

ATOX RON DSE X GTO 01 
AVIEW PSE CLA FIX 0 
ARCL 01 # a" FIX 2 
ARCL 00 " F" AVIEW 
FC? 17 PSE FC? 01 
GTO 09 GETKEY X=0? 
GTO 09 GTO d 


145*LBL D 

RCL 00 CF 01 

" COURS PREC 7?" PROMPT 
STO 00 CF 22 

" Nb TITRES ?" PROMPT 
FC? 22 O0 STO 01 


157*LBL d 

FIX 2 PROMPT RCL 00 
X<>Y XCH LASTX 
M4+VALUE'" ARCL Y "3%" 
AVIEW PSE PSE RCL Z 
- RCL 01 * CLA 

ARCL X " FRS" AVIEW 
PSE FS? 01 GTO 09 
GTO D 


182*LBL E 





" ACTION" CLFL CLST 
STOP GTO E 


188*LBL G 
0 X<>F CLA CLST 
PCLPS 


194*L8L 15 
CLA ARCL 00 ARCL 01 
M :M FIX O ARCL X 
" "FIX 2 ARCL Y 
RTN END 


(Ligne 202= 242 127 95) 


JEGOUZO Christian 
5 rue de l'ardèche 
44800 St Herblain 
Tel : 40.95.18.77 


nn mm mm mmmmmmmmnnsnmmmmmmmmmmmmmmnsmmsmue 


BASE 10 BASE 12 BASE... 


Le calcul de La base 10 en base 12 est souvent 
pénible à exécuter. Aussi, je vous propose ces 3 
petits programmes qui permettent de convertir 
des côtes françaises en pieds, pouces, x/64ième 
et vice-versa. Voir notice jointe: 


Cependant, une petite particularité est à 
signaler, dans Le programme “+-", Ligne :04 SF 
01, ceci permet une interconnexion avec Le 
programme "FRAN". 

Exemple: 6'6,47/64 - 314u 


IN. ordre|Valeurs |Touches|Résultats 


| 
| lengl./us| | | 
| 1  ]| | + | READY | 
| 2 | 6' |Pied |1828,80 | 
| 3 | 6“ | Pouce | 1981,20 | 
| 4 | 47,64 | x/64 | 1999,853 | 
| 5 | 3 | CHs |-3 | 
| 6 | | Pied | 1085,45 | 
Ü 7 | é" | cus |-4 | 
| 8 | | Pouce | 983,85 | 
Fc: | FRA | 
| 10 | | 13° 2 67/64] 
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Nota: Après une opération, réinitialiser avec 


la touche +-. 


CALCULATEUR HP41C/CV/CX. 
AFFECTATION DES FONCTIONS: Programme conversion 


1) LBL "ANGL" 
Données en pieds/ pouce/ (x/64), 
Résultats en mm. 


2) LBL "FRAN' 
Données en mm, 
Résultats en pieds/ pouces/ (x/64). 


3) LBL +." 
Addition et soustraction 
directes en pied/ pouce/ (x/64) 
Résultats en mm, 
Les x/64, sont entrés sous La forme x,64 


taper le 
la touche 


nb: Pour les cotes en mm négatifs, 
chiffre suivit de CHS et appuyer sur 
pied, pouce ou x/64. 


Principe de décomposition d'une valeur en mm: 
exemple: 1263,65mm 


41 1 48/64" = 41 1 3/4" 
1263,65 = 4,14583 
304,8 
* = 44,45 = 1,7 
0,14583 25,4 
#* -..» = 19,05 = 48 
0,75 25.4 
64 


Calcul avec Les programmes: 


1) FRAN -» 2000 -» 66 47/64" 
2) ANGL -» 616 47/64" -» 2000 

3) + -» 616 47/64" -» 1999,853 # 2000 
|21418116132164] 


DUREE DOTE TUE TI 
13131 31 3131 
151 51 5151 

LRU ER ET Pi 

| 91 9191 
[nInIN] 
1131131131] 
1151151151] 
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23NXUTS 


Programme ‘FRAN' (150 octets). 


O1*LBL “FRAN'" 
CLRG FS?C 01 XEQ 01 
CLX "COTE FRAN. ?" 
PROMPT 


08*LBL 01 
304.8 / STO 02 FRC 
304.8 * 25.4 / 
STO 03 FRC 25.4 * 
25.4 64 / / FIX 2 
RND INT STO 05 STO 04 
=0? GTO 03 


32*LBL 00 

RCL 04 2 / STO 04 
FRC X0? GTO 02 1 
ST+ 06 GTO 00 


43*LBL 02 

RCL 05 2 RCL 06 Y”X 
STO 04 / STO 05 64 
RCL 04 / STO 06 


55*LBL 03 
CLA FIX O CF 29 
RCL 02 INT ARCL X 


QOUUUUU EE & EE EE EF KW LL Li Li 
BSSIAULSSSR SI SUUUNNQNDUN SE 





“x " RCL 03 INT 

ARCL X “EH “ RCL 05 
INT ARCL X "u/" 

RCL 06 INT ARCL X 
AVIEW STOP GTO “FRAN' 


7T*LBL 04 
FIX O RND FIX 3 RTN 
END 


Programme ‘ANGL! (140 octets). 


O1*LBL "ANGL" 
2 STO 00 SF 29 


O5*LBL 00 

CLX “PIED/FOOT?" 
PROMPT 304.8 * STO 04 
CLX "POUCE/INCHE?" 
PROMPT 
25.4 * ST+ 04 CLX 
“ X/64 7" PROMPT 
STO 05 FRC 100 * 
STO 06 10 / ENTER* 
FRC X0? GTO 03 X<>Y 
STO 06 


34*LBL 03 
RCL 05 INT SF 25 

RCL 06 / 64 * 25.4 
64 7 * ST+ 04 RCL 04 
FIX O RND FIX 3 

FS? 00 GTO 01 STOP 
GTO "ANGL" 


5S5*LBL 01 
RCL 01 X=0? GTO 02 * 
STO 01 DSE 00 GTO 00 
RTN 


68*LBL 02 
X<>Y STO 01 GTO 00 
END 


Programme ‘+-! (118 octets). 
O1*LBL M+-n 

FIX 2 CLRG SF 01 CLX 

M READY" AVIEW STOP 
O9*LBL "PIED" 

304.8 * ST+ 02 RCL 02 

STOP 


15*LBL "POUCE" 


25.4 * ST+ 02 RCL 02 
STOP 


21*LBL "x/64" 

X<0? XEQ 01 STO 00 
FRC 100 * STO 01 10 
/ ENTER" FRC X0? 

GTO 00 X<>Y STO 01 


37*LBL 00 

RCL 00 INT STO 00 

SF 25 RCL 00 RCL 01 / 
64 * 25.4 64 / * 

FS?C 04 CHS ST+ 02 
RCL 02 STOP 


56*LBL 01 
SF 04 CHS RTN END 


J.P. TOYRE (PPCP 131) 
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26.200! 101.600 













mm 25400. 50 800; 


178.20] 203.60 | 229,00; 25440 











































































































| 1/64 | 0397:25797:51197, 26.597| 102.997 | 127.40| i 

1 1/32 | 0294!26194. 519534) 76.994] 102.394 | 127.29 178.60| 20499! 229.39] 254.29 | 280.19 É 

{ 364] v191 26531,51991 27.391 102.791 | 12819 . 178.99, 20439 | 229.79. 255.19 | 28059! 30099 

1/16 1.88 | 26.988. s2.300! 77288! 103,188 128.59 153.99 ne + 255.59 280.99| 306.39 

| 164 | 1.984'27 384| 5204! 78.184| 103.584 12098 179.28) 205.18; 230.58 255.99 281.39! 306.79 

| 332 | 2381127.281[53181| 78.581: 103981 | 12938 180.18| 205.58 | 230.98! 256.38 | 281.78| 307.18 

! 24 | 2778 2817853576 78978: 104.378 | 129.78 180.58| 205,98 | 231,38! 266,78 | 282.18, 30758 

! 1/8 3115269251 52.978, 29376] 104,775 130.18 180.88 206.38 231.78 267.18 282.58| 307.98 

l ere les er ! ; 

j 964 | 3572)28972154.372| 79272 105.172 120.87 181.37 206.77 222.17 257.89 28297| 308 37 

| 5:32 | 3957 29369 54769 80.189) 105.569 | 130.97 191.77] 207.197, 232.57] 257,97 | 283.37| 308 77 

| 11/64 | 4366: 297661 55166] 80.566! 105 966 | 131.37 182.17! 207,57 | 232.97! 258.37 | 283.27! 309 19 

1 216 Re 80.963) 106.363 | 131.76 182.56| 207.96 | 233.36! 258.76 | 284,16| 30956 

| 19/64 | 5159 39559'55959) 81359! 106.759 | 132.16! 157,56 | 182.96! 208.36 | 233,76| 25916 284.66! 309.98 
7/32 | 5556: 30956, 56.356| 81.756, 107.156 | 122.56! 157.96 | 183.35, 208.76 | 234.18| 259.58 | 28486! 31036 
15/64 | 5953 31.353; 66.753: 82.153: 107.533 ! 132.95! 158.35 | 183751 2091523455 259.95 | 285.35! 310.25 
1/4 6.350| 31250 57150) 82550 107.950 133.35) 158.78 en 209.55 | 23495] 260.35 285.75] 311.15 
17:64 6.747: 22 147: 57547! 82.947 108.347 13325 159.18 164.55! 209.95 | 235.35, 260.75 | 288.15] 311,55 

| 9/32 | 7444:37544' 57944: 83.344: 108.744 | 134 14! 159.54 | 18494! 210.34 | 235.741 261.14 | 288 54 211.94 
19/64 | 7541 32%41,58.3411 832411 199141 13454! 159 94 185.34| 210.4 236.14| 261.54 | 286.94| 312.34 
6:16 | 7.938. 33.336: 58.738: SEE ans 160.34 Lead 211.14 296.54 261.941 287.34] 312.74 

. ï F |. - —. 

, 21/64 8344133734! 59 134! 84534} 109.934 | 135.33| 160.73 186.13; 211.53 22693! 262.34 | 287.74] 31314 
11/32 | 8731,34131159531; 84931 110.331! 135.23: 161.13| 188.53! 21193 2373, 262.73! 288.13] 31353 
23/64 | 9128,34528, 53929) 85.328! 110.228! 13613: 161.53 | 18893] 212.33 | 23773) 26313 288 53 313.93 
vs 9.525: 349251 60 325! 85. 725: re, 161,93 187.32] 212.73; 238.13] 263.53 | 288.,93| 31433 
25:64 | 9922 35322: 60722, 86122| 111,522 ; 136.92] 162.32 187.22! node 263.92 | 289.32! 314,72 
1332 | 10.319: 35 719'61.119! 86519! 111919 | 13722, 162 72 | 188.12, 21252) 23892| 264.32; 289,72! 315 12 
27/64 
7,16 239.71 265.11 290.51| 315.91 


11.113, PARA 57.313! 112213113831! 163.51 8891: 21431 


240.11 265.51 290.91| 316.31 
13506. 13891 16431| 18971} 215.11, 240.51} 265.91 | 291.31] 316.71 
13.903 | 139.30! 16470 | 190.10| 215.50 : 240.90! 268.30 : 291.20] 31710 
1/2 12.200; 38.100| 63.500 88.900] 114.300 | 139,70 165.10 | 190,50! es 266.70 | 292.10| 317.50 


33:64 | 13097: 38 497! 63897, 83. 297| 114,697 1010! 165.50 190.90 216.30! 241.70| 267.10 | 292.50! 317.90 
17:32 | 13494! 3889464294] 659. 694; 115094 | 140.49! 165.89 | 191.29| 216.69 24209; 267.49] 292.689) 318.29 
35:64 | 13.891; 39. 608, 65,088! 90091! 115.49) 14085] 188.29 | 191.69, 217.09 | 242.49! 267.89 | 293.29 31869 

9:16 | 14.288: 39688: 65.085 90.488 Es 15.889 141.29! 168.69 | 192.09! 217.49 | 24289) 26829 293. es 319.09 


37/64 14.684 | 40084 05484! 90 B84 [116284 neRT 167.08 | 192.48] 217.88 | 243.28; 268.69 20409 319.49 
19/32 [15081 auas1|65881| 91.281! 116.681 | 14208 

117 

11 


163.91 189.31 214. 11 


1G716,36116:61516 86916! 112.316 | 137.72! 163.12 188.52! 213.92} 239.32! 264.72 | 290.12! 315.52 
13.109 : 13851! | 


! 29/64 | 11,509 ' 3e 9091 62.309! ho! 1 
15:32 |11.806' 37 306 62706! 88.106! 1 
31/64 |12.303,37703:63103 88503! 1 

1 














167.48 | 192.88| 21828 | 24368 26908 | 294 48| 319.86 
39/64 | 15478: 40878 66278, 91.878 078; 142.48! 167.88 | 193.28| 21868 244.08! 269.48 | 294.88! 320.28 
5e he 41.275,66 67, 7.475 142. 88: 16828 | 193. .68 219. 08 244.48) 269.88 295.28 320.68 


| 41/64 18.272 a1.672| 67072| 32.472 1987: 143.27| 168.67 | 194.07 219.47 24487| 270.27 295.67 321.07 

21/32 [16669 424069! 67469 92.889| 118269 | 14367: 169.07 19447! 219.87] 245.27; 220.67 | 29607| 321.47 
17.066 : 42 466: 67866! 93266! 118.666 | 144.07| 189.47 | 194,87] 220.27 | 245.67 27107; 29647| 321.87 
17 res 4: ra 68 263] 93663) 19.063! 14446! 109.86 


195.26! 220.66 | 246.06| 271.46, 296.86 32226 
17.859: 4325968 gs) 84059! 119459 | 14486! 170.26 | 195.66! 221.06 | 246.46! 27188 297.26 322.68 
18.256:43656: 53056| 94456! 119856 | 145.26! 170.68 ! 
18653;44053'694531,94.853| 120.253! 14565! 171.05 196. 45; 221.85! 247.25! 27265 | 298.05| 323.45 
19.050: ! 44450] 69 ss! 95.250! 120.650 146.05: 171.45 | 198.85! 22225 ; 24785| 273.05 298,45, 32385 


| : 

1944)! aa 8471 20247! 95.647] 121047 146 s| 171.85 19725| 22265 | 24805! 273.45 | 298 85| 324,25 

19.844 4: 244' 70644! 36044; 121,444! 14684) 172.24 | 197 64| 223,04 | 248 44 273.84 | 299.24] 324.64 

20.241'45641!71041: 96441, 121841| 14724) 19264 198.04) 223.44 | 24864! 274.24 299 64! 325.04 
“ 




















196,06! 221.46, 246.86: 272.76 | 297.68! 323.06 





ou amet es 96.638) 122.238 | 147,64| 173.04 | 198.44! 223.84 | 249.24! 274,64 | 300.04 325.44 


2103446 134.71834; 97.234] 122.634 | 14803) 17343 198.83| 224.23] 24964) 275 04 | 300 44| 325 84 
21432:46331,722311 97.631] 123.031 | 1aw43! 173.83 199.23; 224.63| 25003, 27543 301 2) 320.23 








21.828: 42228 12628 98028: 123428. 14883| 174.23 | 19963! 225.03; 25043: 275.83| 30123| 32663 
22.235: 41625 73025 98.425, 123.825 14923: 174,63 | 20003, D pa 27623| 301.63! 32703 


! 
22.622! :48022; na7l 98.822, 1242221 14962, 175.02 200 42! 22582| 25122, 27662 | 302.02| 32742 
23019,48419, 73819 99.219: 1248191 15002: 175 42 | 200.82| 226.22), 251.62 277.02 | 302 42 227.82 
226.62 | 252. si 27742] 30262! 328.22 


232416148818: 74216" 99616' 125016: 150 42| 175.82 201,22 
23.813:49.213; 724613: 100013: RC 176.211 201.61! 22701} 25241! 277.81 nas Le 


! Î ' ' 
24.209: 49 609: 75 009' 1Ou 409. 125 809 15121! 128 81 | 20201 227411252481! 278.21| 303611 32901 
24 606 50006 75408 1Uu BUG 126 206 15161: 12201:20241; 22781 25321! 27861: 30401' 32941 
25003 50403 75803 101209 126803 15200! 177.40 202 80 22820, 25300, 27900, KM 40: 329 80 

















HP71 


JEAN-JACQUES DHENIN 
FRANCOIS LEGRAND 
FRANCOIS LEGRAND 
PPC DANEMARK 


LA REDACTION 





LES CARRES MAGIQUES 

1/X À L'ECHAPPEMENT 
BEEP TOUT LE TEMPS (BIS) 
EDITOR 


CHOC EN RETOUR 
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CARRES MAGIQUES ++ 


Dans Le numéro 27 de Septembre, Jean-Claude 
FOURES (P178) proposait un programme de calcul 
des carrés magiques qui présente des limites 
liées à l'algorithme utilisé. Je me permets donc 
de reprendre Le problème pour dépasser ces 
contraintes. 


Depuis Le "Lo Shu", l'ancien carré magique 
chinois, presque 3000 ans se sont écoulés. A 
notre connaissance Les algorithmes pour produire 
ces carrés ont toujours attiré Les 
mathématiciens et L'on compte maintenant un 
grand nombre d'ouvrages sur ce sujet. A l'heure 
où l'informatique permet de redécouvrir Les 
“récréations! mathématiques, je voudrais vous 
expliquer comment l'utilisation d'un petit 
calculateur programmable m'a conduit à 
reconsidérer La question des carrés magiques et 
m'a mené à un nouvel algorithme. 


Remplir un carré magique : c'est toujours cette 
expression que l'on trouve dans l'énoncé du 
problème : il s'agit de disposer Les nombres de 
0 à p dans un carré de n*n cases, de telle sorte 
que La somme des naturels dans chaque Ligne, 
chaque colonnes et sur les deux diagonales, soit 
la même. Dés que Le carré est supérieur à 5*5 
cases, il devient nécessaire de disposer d'une 
méthode. Nous allons considérer un exemple : 


Remplissons une grille 7*7. 
Nous plaçons tout d'abord 0 dans la case du 
milieu du bord gauche. En suivant la petite 
flèche nous sortirions du carrés. IL faut æalors 
placer 1 dans La case correspondante sur le bord 





opposé, et ainsi de suite, jusqu'à 6. IL n'est 
plus possible de continuer puisque La case 
suivante est occupée. IL suffit de placer Le "7" 
à droite du "6" puis de reprendre La progression. 


Essayez de terminer seul; puis, vous pourrez 
vérifier que vous avez réalisé un carré magique 
puisque La somme des des nombres placés dans 
chaque ligne, chaque colonne et chaque diagonale 
est constante (168). 


Cette méthode est celle utilisée par 
Jean-Claude FOURES dans l'article précité. Ce 
qui implique de conserver en mémoire un tableau 
de n*n cases. Ligne 30 DIM C(N,N) . 

Pour générer un carré magique au moyen d'une 
petite calculatrice programmable, il était 
indispensable de trouver une autre méthode; en 
effet, la taille de La mémoire interdit de 
traiter Les grands tableaux. C'est donc une 
contrainte imposée par Le matériel qui conduit à 
poser La nécessité d'un nouvel algorithme. 


Suposons pour simplifier, un carré magique 5*5 
déjà rélisé et étudions sa composition : 


|W115121| 21 8] 
| 711131191201 11] 


123141 51111#7] 
116121 3|[ 9101] 


En exprimant Le contenu de chaque case par 
rapport à “n" (le côté du carré) La progression 
d'une case à La suivante est simple : le 
multiplicateur de n est augmenté de 1 jusqu'à 
valoir n, de même La valeur ajoutée, lorsque 
l'un des coefficients est égal à n, il prend la 
valeur zéro. 


On peut alors exprimer cette variation par le 
tableau suivant, correspondant au carré de 5*5 
ci-dessus : 





nn nmmmmmmmmmmmnmmmmmnnmnsns 


| 2nté | 3n+0 | 4n+1 | On+2 | N+3 | 


mm mm mm mmmmmmmmmmmmmmme 


| On+0 | n+1 | 2n+2 | 3m3 | 4n+4 | 
| én+3 | Onté | n+0 | 2n+1 | 3n+2 | 
| 3n+1 | én+2 | On+3 | n+4 | 2r+0 | 


En posant : 
multiplicateur de n 
valeur ajoutée 
contenu de La case 
indice de Ligne 
indice de colonne 


+ XX D > 
CL | 


X appartient à (0,1,2,...,(n"2)-1} 
A,B appartiennent à {0,1,2,...,n-1} 


Xij + 1= (AÏj + 1)*n + Bij +1 


Lorsqu'une Ligne est remplie, on passe à la 
première case de La Ligne suivante simplement en 
retranchant 1 au contenu de La dernière case de 
la Ligne finie. Enfin, Le premier terme du carré 
est obtenu par : 


Xo = Ao *n + Bo où 
Ao =(n-1)/2 et Bo=n-1 


IL est alors possible d'écrire l'algorithme de 
calcul de chaque case : 


Introduire n Le côté du carré. 
A = (n-1)/2 

B=2 

i=znet j=0 


Tant que j 
[Siis=n 
| | alors i = 1 et B = B-1 et j = j+1 
| sinon i = i+1 et À = A+1 
[SiA=n 

| | alors A = 0 

| fin de si 

| B = B+1 

|SiB=nN 


een 





| | | alors B= 0 
| | fin de SI 
| fin de SI 


| Xij=AÎij *n+8 
fin de tant que 


Enfin, il est aisé de voir quelle sera La somme 
obtenue comme constante du carré : dans chaque 
ligne, chaque colonne ou diagonale on trouve 
toujours tous Les multiplicateurs et toutes Les 
valeurs ajoutées chacun en un seul exemplaire: 
donc : 


S = (0+1+2....+(n-1))%n + (0+1+2...+(n-1)) 
La somme des n-1 premiers entiers : 
n*(n-1)/2 


implique que S = (n3-n)/2 


Nous pouvons maintenant générer n'importe quel 
carré magique de côté impair en “disposant" Les 
n-1 premiers naturels. Y aurait-il un moyen de 
générer d'autres types de carrés magiques ? Le 
chemin reste à défricher. Bon courage ! 


Programme pour HP41 


OisLBL "KMAG" 

O2aLBL A STO 01 1 STO 02 STO 03 - STO 05 2 
/ STO 04 

128LBL 00 RCL 01 RCL 04 #* RCL 05 + RTN 

19aLBL 01 RCL 01 RCL 02 X#Y? GTO 02 1 STO 02 
ST- 05 ST- 05 RCL 03 + X>Y? RIN STO 03 GTO 03 
34mLBL 02 1 ST+ 02 ST+ 04 

38aLBL 03 RCL 01 RCL 04 X#Y? GTO 04 O0 STO 04 
4&5aLBL 04 RCL 01 RCL 05 1 + X=Y? O0 STo 05 
GTO O0 END 


Jean-Jacques Dhénin (SIG#5+ - PC#177) 


BEEP TOUT LE TEMPS (bis) 


Pour vous qui utilisez Le Lex KBEEP, et qui en 
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avez marre d'entendre 1000Hz lugubres durant 20 
millisecondes chaque fois que vous prenez une 
touche de votre 71 préférée. Voici un petit 
programme, en basic malheureusement, qui vous 
permettra de varier vos bips. 


UTILISATION 


Tapez "CALL KBEEPARM", et à La question ‘"KBEEP 
1000,20!, remplacez, ou gardez Les deux 
paramètres proposés. Le premier paramètre 
correspond à La fréquence du bip en Hertz, et le 
second à La durée du bip en millisecondes. 
Sachez que La fréquence maximum sera de 4095Hz 
et La durée maximum de 255ms. 


Voilà. En attendant La fonction "KBEEP 
fréquence,durée", variez vos bips. 


PS: IL est nécessaire d'avoir Le Lex “PKLEX" et 
la fonction "REVS$" pour procéder. 


KBEEPARM 


10 SUB KBEEPARM à INPUT "KBEEP","1000,20":A,B 

à IF A>4095 THEN A=4095 

20 POKE DTHS(87+HTD(ADDRS(!KBEEP' ))),REVS(DTHSÇA* 
(A<4096)+4095*(A>4095))) 

30 POKE DTHS(96+HTD(ADDRS('KBEEP!))),REVS(DTHS(B* 
(B<256)+255*(B>255))) [1,2] 


François LEGRAND (P#171) 
Rue Josse Impens 99 
1030 Bruxelles - BELGIQUE 


1/X A L'ECHAPPEMENT ! 


Etant habitué à ma bonne vieille 41, donc à la 
RPN. Combien de fois ne m'est il pas arrivé de 
chercher La touche "1/X" sur mon 71. Suite à de 
longues tentatives d'assignations infructueuses 
et grâce au hasard, voici La solution: 


DEF KEY "G9",CHRS(27)8'm"BCHRS(27)8"01/"RCHRS(27) 
Be MBCHRS(27)8 MR"; 





Vous avez remarqué que, contrairement aux 
exemples du manuel, La définition n'est pas 
encadrée de guillemets. En effet, s'il y a des 
guillemets, l'affichage est d'abord effacé puis 
la séquence est éxécutée, ce qui ne donne pas 
l'effet désiré. 


Explications sur La chaine de définition: 


CHR$(27)&'x:Ramène Le curseur à L'extrème gauche 

CHR$(27)&"Q":Active Le curseur d'inversion 

1/! :Place 1/ à gauche de la valeur 
précédemment affichée 

CHR$(27)&"e": Ramène Le curseur à droite des 
valeurs affichées 

CHRS(27)8&"R":Réactive Le curseur de remplacement. 


Ce même principe peut-être utilisé pour d'autre 

fonctions (fonctions trigonométriques, 

logarithmiques ...) 

Exemple: fonction cosinus 

DEF KEY "f51,CHR$S(27)8"'&CHRS(27)&"QCOS(" 
&CHRS(27)8&"e)"; 


Remarque: ces assignations ne peuvent pas être 
utilisées en mode CALC, mode qui serait très 
intéressant si son éditeur n'était pas Limité à 
96 caractères par ligne. En effet, une trop 
longue suite de calculs provoque une erreur avec 
le message WRN: Line Too Long !!1! 


Autre application: 


Voici deux assignations de touche d'aide à la 
frappe des fichiers LEX source: 

DEF KEY "fPu,CHRS(27)8"%X9°"; 

DEF KEY "fO",CHRS(27)8"X"&CHRS(B)&" 0"; 

avec & = CHR$(15) et ‘ = CHR$(1) 

"f0" place Le curseur sur Le huitième caractère 
de l'afficheur, et "fP" place Le curseur sur le 
quinzième caractère ; ce qui correspond 
respectivement à l'emplacement des mnemonics et 
des modifiers. 


Echappez vous bien, 


François LE GRAND 


EDITOR 





But: Editer des chaînes de caractères dans un 
tableau. 


Configuration: HP71 + HPIL + Interface vidéo. 
Taille: 2221 octets 


Utilisation: 

Dans beaucoup de programmes, j'ai besoin 
d'éditer des textes, destinés à être imprimés. 
J'ai donc fait ce programme qui, bien sûr, n'est 
pas identique au Text-Editor (module HP), mais 
qui offre des fonctions bien utiles. 

Voici donc La marche à suivre: 


[RUN] 

Le programme vous demande d'entrer vos lignes 
de texte, avec l'affichage "1: “. Les lignes 
doivent être entrées une par une, à l'affichage 
de "2:10, 3: 4 ,,, Un: ", Elles sont, en fait, 
dans un tableau T$(N), où N est Le numéro de la 
ligne. 

Quand La dernière Ligne est introduite, vous 
terminez en entrant [#] et [ENDLINEJ. Vous vous 
trouvez alors devant Le menu suivant: 
“Del/Ins/Txt/Nr/Re/Ex" 


[D] (Delete) 

Enlever une ligne de texte. Le programme vous 
demande Le numéro de La Ligne. Si vous ne voulez 
rien effacer, faites simplement [LENDLINE], et 
vous reviendrez au menu. 


[1] (Insert) 

Insérer une nouvelle Ligne. Le programme vous 
demande un numéro de Ligne, et vous devrez 
introduire La nouvelle Ligne à l'affichage de 
MNeu:". Cette ligne est introduite avant celle 
dont vous avez donné Le numéro. Si vous ne 
voulez rien insérer, faites simplement  [ENDLINE] 
à l'affichage de "New:", et vous reviendrez au 
menu. 


[T] (Text) 

Entrer des lignes de texte. Le programme vous 
demande un numéro de Ligne. Le texte que vous 
allez écrire sera rentré à La place des 
anciennes Lignes, qui sontt affichées (sur la 
vidéo). 

Si vous entrez, à La place du numéro, [LE] ou 
[el], Le texte sera ajouté à La fin, en tant que 
nouvelles Lignes. 





Quand vous aurez fini, mettez  [#] comme 
dernière ligne, et vous reviendrez au menu. 


EN] (Number) 

Lister Le tableau, avec Les numéros de ligne 
devant. Le programme vous demande à partir de 
quelle Ligne vous désirez commencer. 


[R] (Replace) 

Echanger deux Lignes de texte. Les deux Lignes 
sont  repérées par Un nombre de La forme 
“aaa.bbb". Notez Le point au milieu. 


[E] (Exit) 
Fin du programme. 


Ê 


A tout moment, Vous pouvez revenir au menu en 
appuyant sur [ON] ou [*] ([g] et [/1). 


Remarque: On ne peut, avec ce programme, 
changer une ligne sans La changer en totalité. 
De plus, les Lignes sont limitées à 80 
caractères, du fait du nombre de colonnes de 
l'interface vidéo. 

Le programme contient beaucoup de commentaires, 
qui expliquent Le fonctionnement du programme... 
et qui encombrent La mémoire ! Ils peuvent tous 
être supprimés, La taille du programme décroit 
alors considérablement. 


PPC - DANEMARK 


nnnnnnnnnmnnnmnmmnnmmmmmmmmmnmmmsmmmmmmmmmmmnmnns 


CHOC EN RETOUR 


Le programme de bridge paru dans notre dernier 
numéro n'était hélas pas complet. En effet, L'un 
d'entre nous avait oublié de faire un "Form 
Feed" sur notre bonne vielle LazerJet. Alors Le 
voici de nouveau ce bon vieux programme de 
bridge ! 


La rédaction 
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CARRES MAGIQUES 


10 INPUT “nombre impairz";N 
- INITIALISATION 
20 A=(N-1)/2-1 à B=N-2 
- CALCULS 
30 FOR J=1 TO N @ FOR 1=1 TO N à A=(A+1)*(A#N-1) à B=(B+1)*(B#N-1) 
40 DISP TAB(I*6);A*N+B; @ NEXT I à A=A-1 Q B=B-2 à NEXT J 


Rte eee ee ee eee re ee ee ee er rer ee ee ee er er er rer re ee eee ee ee eee ee ee ee ee 


EDITEUR DE TEXTE DU PPC-DANEMARK 


- EDITOR 
Initialisations 
RUN 'ED' accessible par La touche [g][/] (”) 
20 DEF KEY """,MRUN, 'ED'": 
30 OPTION BASE 1 à CFLAG 4 à N=0 
- Entrée du texte 


EE 
40 'TEXTIN': N=N+1 @ DIM T$(N) [80] ,Q$ [80] 
- Pour l'alignement du texte sur La vidéo 
50 IF N<10 THEN DISP " ": 
On affiche Le numéro de La ligne 
60 DISP N; 
- Entrée de La n-ième ligne 
70 LINPUT M: H:TS(N) 
80 IF TS$(N)#"#"" THEN 'TEXTIN' 
- [#1] signifie: Fin du texte. 
90 N=N-1 
- La dernière ligne (#) n'est pas comprise dans Le total. 


100 ‘ED': DISP “Del/Ins/Txt/Nr/Re/Ex" 
- A vous de choisir ! 
110 QS$S=UPRCS(KEYS) 
120 IF Q$="D" THEN 'DEL' ELSE IF Q$="]" THEN 'INS' ELSE IF Q$="T" THEN "TXT! 
130 IF QS$S="N" THEN 'LN' ELSE IF Q$="E" THEN 'FIN' ELSE IF Q$="R" THEN ‘REP! ELSE 110 


140 ‘’INS': INPUT “Ajout devant La Ligne No:","O";L 
- Ajout de nouvelles Lignes 
150 IF L=0 THEN ‘ED! 
- L'entrée de La nouvelle ligne 
160 LINPUT "1:Q$ 
- Mais si vous regrettez ! 
170 1F Q$="" THEN ‘ED! 
- On dimensionne pour une nouvelle ligne. 
180 N=N+1 à DIM T$CN) [80] 
- Décalage de toutes les lignes à partir de L. 
190 FOR X=N TO L+1 STEP -1 
200 T$(X)=TS(X-1) 
210 NEXT X 
- Le texte introduit est placé dans T$(L). 
220 T$(L)=Q$ à GOTO 'ED' 
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—————.…——_—_—_—_—_——…——…—…—…—…—…—…—……………—……"……“—…—…—_—…—_—…—…—…—…—…———— 


ÉE2SSEISREESEESESSSESESSEEEEEERZEEESESESSSSSESSESESEEESESESSSESEEE 

230 ‘REP': INPUT “Echange a et b (aea.bbb})","0":Q à R=IP(Q) à S=1000*FP(Q) 
240 1F R=0 THEN ‘ED' ELSE IF S=0 THEN ‘ED! 

250 QS$S=TS(R) à TSCR)=TS(S) à T$(S)=Q$ à GOTO 'ED' 


ESSSZZSIEEEZE=SSESSSSESSSLIESEIIESESSSSSSSSSSSSEESESSSSESSESSESSSSS= 
260 ‘TXT': INPUT “Texte en Ligne No:";L$ 
- Si rien n'est entré, alors on retourne à ED. 
270 IF L$="" THEN ‘ED! 
280 IF UPRC$(L$)="E" THEN 'LASTLIN' ELSE 'NOTLASTL' 
- [El="End of text"=!fin de texte" (on ajoute une nouvelle Ligne) 


ŒZSSSSSSSSSSSSSTISSZZSISIIIISE=ESSSSSSSSSSSSSEEESESEESSsssSSSsssE 
290 'LASTLIN': SFLAG 4 @ N=N+1 à DIM TS(N)[80] à GOTO SHOWLIN' 
- Flag 4: Fin du texte 
On affiche La Ligne qui va être modifiée. 


SSSSZSZIZITEISISSEESSSSS=SSSSSSSSSSSSETISESSSSSSSSSSSSSSSSSSESSEEESE 
300 "NOTLASTL': DISP T$S(VAL(LS)) à GOTO 'LINP' 
- On affiche La dernière ligne 


SSSIZSZIZZIZSSSSSSSSSSSSSSTSISISITIISTIESESSSESSSSSS-SSSS=SSSES=sEssEssS 
310 "SHOWLIN': U=N-1 à DISP T$(U) 
- Entrée de La nouvelle Ligne 


ESZSEEZZSZ==SSSSSSSSSSSSSEISSSIIZSISISIZSSSESSSSSSSSSSSSSSSSSESSESSESzE= 
320 'LINP': LINPUT "#:Q$ à IF Q$="#" THEN 'ED' 
330 IF FLAG(4) THEN TS(N)=Q$ ELSE TS(VAL(LS))=Q$ 
- Flag & armé quand E/e a été entré, alors le texte est placé dans La 
dernière Ligne (T$(N)=Q$), sinon en Ligne VAL(LS$) 
340 1F FLAG(4) THEN "NEWLIN' ELSE 'ED' 
- Si fleg 4 désarmé, alors c'est La dernière Ligne. 
Entrée de La nouvelle ligne 


SSSSsS2zzE22=22=22S222222=222SSSSSSSSSSSSSESESSSSSSSSSSSSSESES= 
350 'NEWLIN': N=N+1 @ DIM T$CN)[80)] @ LINPUT "":TS$S(N) 
360 IF T$(N)="#"! THEN 'NOMORE' ELSE :NEWLIN' 


SSSSSTIIZZIITESSSSSSSSSSSSSSSSSSSSSSSSSTSSTSESSSESSSSSSSSSSSSSEz 


370 'NOMORE': CFLAG 4 à GOTO ‘ED' 


SZIZSZS==SSSSSSSSSSTSESSSTIEISITIZIIIIIEIIEIEIESESSSSSSSSSSSSSSsssEsEEEsz 
380 'LN': INPUT "A partir de La Ligne No:","On:L 
390 1F L=0 THEN ‘ED' 

- Affiche toutes Les lignes avec leur numéro devant. 


400 'LN': FOR X=L TO N 
410 DISP X;": M:TS(X) 
420 NEXT X 
430 GOTO ‘ED: 

- Enlever une Ligne 


SSSSSSSTZZTITEITESESEDEEESEDESSESSEZEISSEESSZzzEzz=zsEzEE=SsSE2zzz 
440 'DEL': L=0 à INPUT "Effacer La Ligne No:","O":L 
450 IF L=0 THEN 'ED' 
- Si vous regrettez ! 
460 FOR X=L TO N-1 
470 TS(X)=TS(X+1) 
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480 NEXT X 
490 N=N-1 à GOTO 'ED' 


BSESSEZ==SSE=SSSSSSSSSS==S=S=S=SSSSSSSSISSSSSEZSZIESEESSSESSSESSEEE 
500 ‘FIN': DISP "Fini." 
510 END 


Rte ee ee de ee de ee ee ee rer or re re fe ee of ee oo eee eee or rer rer eee ee 


CHOC EN RETOUR 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSEISSESESSSTSTSTESSSSSSSSSssssEzsEzsz 
5 SUB MAIN 
10 DESTROY R1 à OPTION BASE 0 à DIM R1(38) 
20 FOR A=0 TO 4 à FOR R=0 TO 4 à FOR D=0 TO 4 à FOR V=0 TO 4 
4O IF A+R+D+V>13 THEN 70 
50 S=4*A+3*R+2*D+V 
60 R1C(S)=R1(S)+COMB(4,A)*COMB(4 ,R)*COMB(4,D)*COMB(4,V)*COMB(36,13-A-R-D-V) 
70 NEXT V à NEXT D à NEXT R à NEXT A 
80 END SUB 


Rte ee ke de ee ee ee re ee ee ee er ro re oo ee ee ee eee ee ee re re ee ee ee eee ee re fe re ee ee ee ee ee 


EEE 


HP-71 ASSEMBLEUR 


MICHEL MARTINET MISE À JOUR DES LEX (SUITE) 


JEAN-JACQUES DHENIN VARIABLES ET FICHIER BINAIRE 


JEC 29: Page 27 __ 


__ JEC 29 Page 28 


MISE A JOUR DES LEX (suite) 


Voici La liste des mots-clés (tokens) de notre 
ID (#E1), actuallisée pour Le mois de novembre. 
Le TOKEN 7 sera bientôt remplacé par La fonction 
FLSIZE(<spé. de fichier>), compatible avec 
L'HPIL. Régulièrement, cette Liste vous sera 
proposée, avec son évolution. 


La rubrique assembleur est très faible en ce 
mois de novembre mais n'allez surtout pas penser 
que nous ne faisons plus rien: au contraire 1! 
Beaucoup de belles choses sont actuellement en 
création. Pierre David a presque terminé un 
super débogeur avec visualisation de tous Les 
registres internes. Jean-Jacques Dhénin fait 
très fort sur des tas de fonctions de calcul 
matriciel. Stéphane Barizien à refait 
entièrement Un assembleur en FORTH tournant 5 
fois plus vite que celui de Hewlett-Packard. Je 
prépare des mots-clés complémentaires HPIL pour 
Les mémoires de masse ( MEM(":TAPEN), 
MEMDIR(":TAPE"), MAXMEM('":TAPEN) et 
MAXDIR(#:TAPE")). D'autre projets encore comme 
l'extension de l'ordre EDIT aux fichiers Lex et 
la possibilité d'utiliser l'ordre MERGE pour Les 
chaîner. Voilà, tout cela nous demande beaucoup 
de temps , cela explique l'énorme rubrique de ce 
mois-ci. 


TOKENS: 

NOUVELLE ANCIENNE 
APPELLATION: APPELLATION: 
XFN 225001 ADBUFS$ LEX DESAL XFN 092001 
XFN 225002 ASCS$ . XFN 092002 
XFN 225003 ATHS . 

XFN 225004 HTAS . XFN 092003 
XFN 225005 REDS . XFN 092005 
XFN 225006 REPLACES  LEX REPLEX XFN 092008 
XFN 225007 FILE? LEX FILELEX XFN 092240 


XWORD 225008 ATTN LEX ATTNLEX XWORD 092033 


XWORD 225009 DISABLE LEX DRIVELEX XWORD 092040 
XWORD 225010 ENABLE . XWORD 092041 
XWORD 092034 


XWORD 225011 FKEY LEX FKEYLEX 


XFN 
XWORD 
XFN 
XFN 


XFN 


XFN 


XWORD 


XFN 
XFN 


XFN 
XFN 
XFN 
XFN 


XFN 


XWORD 


XWORD 


XFN 


XFN 
XFN 


XFN 


XFN 
XFN 
XFN 
XFN 
XFN 


XWORD 
XWORD 
XWORD 
XFN 

XWORD 
XWORD 
XWORD 
XWORD 
XWORD 
XWORD 
XWORD 


XFN 


XWORD 


225012 CONTRAST 
225013 INVERSE 


225014 INVS 
225015 PAINT 


225016 ENDUPS 
225017 ENDUP 


225018 STARTUPS 


225019 CMD16 


225020 ARR 
225021 COMB 


225022 HMS+ 
225023 HMS- 
225024 HMS 
225025 HR 
225026 XERR 
225027 STACK 
225028 REPEAT 


225029 MARGIN 


225030 PRIM 


225031 CURSDOWN 
225032 CURSKEYS 


225033 MENU 


225034 CENTERS 


225035 CESURE 


225036 FORMATS 
225037 REDUCES 


225038 SPACES 


225039 BELL 
225040 BOLD 
225041 CR 
225042 ESCS$ 
225043 FF 
225044 LF 
225045 MODE 
225046 PERF 
225047 PL 


225048 UNDERLINE 


225049 WRAP 


225050 INDATES 


225051 KBD 


LEX DESLEX 


LEX ENDUPLEX 


LEX CMDI6LEX 


LEX COMBARR 


LEX HMSLEX 


LEX XERRLEX 


LEX STKLEX 


LEX REPEAT 


LEX MARGELEX 


LEX PRIMLEX 


LEX ONKEYLEX 


. 


LEX MENULEX 


LEX FORMALEX 


LEX PRINTLEX 


LEX INDATLEX 


LEX KBDLEX 


XFN 
XWORD 
XFN 
XFN 


XFN 
XWORD 
XFN 


XWORD 


XFN 
XFN 


XFN 
XFN 
XFN 
XFN 
XFN 


XWORD 





092020 
092021 
092022 
092023 


092230 
092231 
092232 
093130 


093018 
093019 


092060 
092061 
092062 
092063 
093128 


092050 





XFN 225052 DDAYS LEX DATELEX 


XWORD 225053 DMY . 
XFN 225054 DOWS . 
XFN 225055 DOW . 
XWORD 225056 MDY . 


NOTE: Le LEX DESAL possède en plus les 
fonctions et ordre suivant: 


XFN 001063 PEEKS ) Ne tenant pas compte des 
XWORD 001064 POKE ) zones privatisées (PKLEX) 
XFN 082001 KEYWAIT$S Hewlett-Packard 
XFN 082012 REVS Hewlett-Packard 


BUFFERS: 
A00 DENDUP 808 
RESERVED RAM 
BIT 3 2 1 0© 

2F986 0 O0 O 1  MATHROM 
2F987 1 1 1 1  MARGIN 
2F988 1 1 1 1  MARGELEX 
2F989 1 1 1 71  REPEAT 
2F98A 1 1 1 1 KBDLEX 
2F988 0 0 0 0 
2F90F 1 1 1 1  DEBOGEUR 

. (DEBUT 

. 1986) 

. P.DAVID 
2F9ES RE 


Michel MARTINET (SIG#2) 


ACCES AUX VARIABLES A PARTIR 
D'UN PROGRAMME BINAIRE 


.1 Recherche de l'adresse d'une variable. 


Les utilitaires ADDRSS (et ADRS40) sont 


pratiques pour se retouvrer dans La Liste des 
variables et pour obtenir l'adresse d'une 
variable. Ce sont des utilitaires de bas niveau 
sans cas particulier tel que l'indirection. Si 
la variable n'est pas trouvée ils indiquent 
explicitement cette condition. 


.2 Rappel d'une variable. 


La procedure suivante peut être utilisée 
pour Le rappel d'une variable : 


Créer un espace dans La mémoire représentant La 
tokenisation de La variable suivie d'une virgule 
ou d'un token de fin Ligne (EOL). 

Pointer DO sur Le début de cet espace. 

Appeler EXPEXC pour évaluer cette expression. 
Popper La valeur de La math stack. 


Cette procédure retourne La valeur zéro 
pour les variables numériques non existantes et 
une chaîne nulle pour Les chaînes non existantes. 


.3 Stockage dans une variable. 


La procédure suivante peut être employée 
pour stocker une valeur dans une variable dont 
on connaît Le nom : Créer un espace mémoire 
représentant La tokenisation d'une variable 
suivie d'une virgule ou d'une fin de Ligne. Par 
exemple : A$ EOL est tokenisé D2 14 OF et 
Q9(1,2) EOL est tokenisé 13 23 D7 96 15 2 OF. 
--Pour connaître La  tokenisation, il est 
possible d'ecrire dans La première Ligne d'un 
programme d'ESSAI La suite en BASIC; après quoi, 
au clavier, demander 
PEEK$ (DTHS(HTD(ADDRS('ESSAI'))+49),80) 
et Lire La représentation de La chaîne sous sa 
forme tokenisée. -- Pointer DO sur Le début de 
La  tokenisation. Appeler EXPEXC pour évaluer 
l'expression. Appeler DEST pour sauver l'adresse 
dans Le statement scratch. Chercher La valeur à 
sauvegarder en évaluant une expression ou par 
tout autre moyen. Appeler STORE pour ranger Le 
résultat dans La variable. La variable est crée 
si cela est nécessaire. Si vous applelez STORE à 
partir d'un programme binaire, assurez-vous que 
S-R1-2 contient zéro afin de ne pas se retouver 
en mode trace inutilement. 


-4 Création de variables ou de tableaux. 
La méthode décrite ci-dessus est un moyen 


d'accès aux variables qui contourne Les 
difficultés, telles que l'existence ou La 
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création des variables. L'inconvénient de cette 
méthode réside dans Le fait qu'aucun contrôle 
n'est possible et que les variables sont créées 
avec Leurs dimensions par défaut -- Les chaînes 
à 32 caractères, Les tableaux de type réels...-- 
Si une dimension ou un type autre que ceux par 
défaut sont nécessaires, Le programme en 
assembleur doit créer explicitement La variable. 
Dans ce cas il est recommandé de suivre la 
procédure suivante. 

Placer dans S-R1-3 Le type de donnée (inutile 
pour les chaînes). 

A = Entier 

= Réel court 

= Réel 

= Complexe court 

z Complexe 


m © nn œ 


Pointer DO au début d'un espace mémoire 
tokenisé sous La forme d'un ordre DIM. Per 


exemple : 


Description Tokenisation 

A EOL 14 OF 

AC2) EOL D7 14 23 OF 
B8(3,4) EOL D7 86 24 33 43 OF 
A$(6) EOL D7 D2 14 63 OF 
B$[80] EOL D2 24 2F CO08 OF 


C$(6)[180] EOL D7 D2 34 63 2F C008 OF 
GOSBVL =PREP 
GOSBVL =DPVCTR 
R1=C 
* Lors de La création de COMPLEXES ou de 
COMPLEXES COURTS * armer Le status bit O0 (ST=1 0). 
GOSBVL =SPACE 
GOSBVL =DMNSN 


.5 Destruction de variables et de tableaux. 


La méthode suivante peut être utilisée 
pour La destruction de variables par un 
programme en assembleur : 


Pointer DO sur un espace tokenisé représentant 
la variable. 
Appeler DSTRY* pour détruire La variable. 


Application 
Le petit programme binaire qui suit est 


équivalent à La Ligne de BASIC : 
N=C-28+1 


Entrer le source sous Editeur de textes, puis 
passer en mode FORTH. Assembler le Binaire. 
Repasser en BASIC. DESTROY ALL & C=15 à B=9 . 

RUN VARBIN 

N CENDLINE] --->7 


BIN "VARBIN' 

CHAIN -1 
ztCOMMA EQU #F1 
ætEOL EQU #F0 
at- EQU #82 
st+ EQU #87 
sEXPEX- EQU #0F178 Eval. avec init. math stack 
sEXPEXC EQU #0F186 Eval. sans init. math stack 
æDEST EQU #0F7B0 Sauve élém.-> stock. résult 
æSTORE  EQU #0F5F8 Stockage résultats 
æENDBIN EQU #0764B Sortir du binaire 


Pas de sous-programme. 


GOSUB dest Actualise DO 

NIBASC !N! Nom de La var. pour résultat 

CON(2) =tCOMMA Termine provisoirement l'éval 
dest 


C=RSTK Lit l'adresse du début token 
CDOEX Pointe DO sur 'N' 
GOSBVL =EXPEX- Evalue N, 
GOSBVL =DEST Sauve Les élémts pour résults 
GOSUB  eol Actualisation DO 
NIBASC CB! ) 
CON(2) =t- ) 
CON(2) =t+ ) Equivaut C-B+1 
NIBASC ‘1! ) 
CON(2) =t+ ) 
CON(2) =tEOL 
eol 
C=ERSTK Lit l'adresse de l'expression 
CDOEX DO pointe sur l'expression 


GOSBVL =EXPEXC Evaluation 
GOSBVL =STORE Range le résultat dans N 
GOVLNG =ENDBIN Fin de calcul 


DHENIN Jean-Jacques SIG#5 
B.C.M.W. (1) 43 36 12 05 


P.S. A partir du prochain numéro, nôtre grand 
feuilleton : MATHROM2 ou comment PANAME s'écrit 
sur Le HP71. [Ne manquez pas cette série, 
retenez votre souffle et Le prochain numéro chez 
votre distributeur en vente partout pour une 
somme modique et d'une telle qualité, fin de 
l'éditorial]. 





NOUS EN AVONS 


Sont en vente au Club: 


- Cartes magnétiques pour HP41 au prix de 150FF + 3,10FF de port les 50 cartes; 
- Cartes magnétiques pour HP71B au prix de 91FF + 3,10FF de port les 10 cartes; 
- Cassettes digitales pour HP82161A: 100 FF pièce, plus 3,10 FF de port par cassette. 
- Eproms (2716 & 2732) vierges au prix de 60FF + 3,10FF de port pièce. Pour Les Eproms 
programmées, nous consulter; 
- Module TIME (82182A) au prix de 400FF + 6,50FF de port. Livré avec manuel en français; 
- Module QUADRAM (82170A) au prix de 400FF + 6,50FF de port; 
- Module HPIL (82160A) au prix de 970FF + 6,50FF de port. Livré avec manuel en français; 
- Pour Les commandes des ZENROM, CCDROM et ROM PANAME nous envoyer 500FF minimum d'arrhes: 
- VASM (Listing en anglais des 3 premières pages de La 41) au prix de 170FF + 13,50FF de port; 
+ Le manuel de service de La 41 (en anglais) au prix de SOFF + 6,50FF de port; 
- Le manuel technique du convertisseur (en anglais) au prix de 20FF + 3,20FF de port; 
- HPIL Interface Specifications (en anglais) au prix de 80 FF + 9,50 FF de port 
- The HPIL Integrated Circuit User's manual (en anglais): 40 FF + 6,50 FF de port 
- Interface Kit Technical Guide (en anglais): 15 FF + 3,50 FF de port 
- Manuel technique du Minitel R (Ref. 250 Alcatel): 40 FF + 6,50 FF de port 
- Les anciens numéros au prix de: 
No 1à 3 au prix de 15FF + 3,20FF de port par numéro, 
No & à 10 au prix de 20FF + 3,20FF de port par numéro, 
No 11 à 17 au prix de 25FF + 6,50FF de port par numéro, 
à partir du No 18 au prix de 35FF + 6,50FF de port par numéro. 


Les ports sont les tarifs PTT actuels en non urgent. 


ACHATS GROUPES 


Nous assurons des commandes groupées pour ceux qui désirent profiter de notre réduction 
“spécial Club", soit 25% par rapport au prix HP. Pour ceux qui Le désirent, nous assurons 
l'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des modules que des 
calculatrices et autres. 


NOTA: ces deux rubriques “nous en avons! et “achats groupés", sont des services “Club! que nous 
rendons exclusivement aux membres effectivement inscrits au club et possédant Leur carte de 
membre PPC-PARIS. 
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JUILLET/AOÛT 85 PPC PARIS CHAPTER 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISIREE 
AR PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D°ADHESION 


NOM PARA RARE METIERS RS NS MTS ES 
PRENOM !_!_1 
ADRESSE !_!_! 


COMMUNE : 


— 
m 
Fe 
m 
T 
= 
oO 
Z 
m 
© 
Q 
pe * 
14 
oO 
+ 
[a 


PROFESSION 
INTERETS 


MATERIEL HP EN VOTRE FOSSESSION 
de ee = se > 
EE —————_——— —_—_—_—_—_—_— 
AUTRE MATERIEL MICRO-INFORMATIQUE 
———————————..—.___—————— ——]_]—_—_—_—_—_—_—_—_ —— 
——————— 


COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER 7? 


PUBLICITE MAGAZINE 


AUTRE CLUE - HF 
RELATIONS, MEMBRES DU CLUB, AUTRES 
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QUE RECHERCHEZ-VOUS Ali SEIN DU PPC PARIS CHAPTER ? 

RE 
———————————————— —_—_——___ 
SE 2 2 2 ce Le 


Je souhaite adherer au club PPC PARIS CHAFTER conformément aux statuts de 
l'association. Au mieu+ de ma connsissenrce, je declare avoir le droit de fournir 
tous les programmes et informations que Je vous enverrai {sans enfreindre des 
obligations de secret à l'égserd d'autres personnes ou orgarismes) pour 
publication dans le journal de liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisetion frauduleuse) de la part des dirigeants du 
PPC PARIS CHAFTER. 


GATE. . 123: 14 


RRCE 
i ,’ 


co 


; 1 1 


tp 
SIGNATURE, PRECEDEE DE Lé MENTION “LU ET AFFROUVE" 


LE MONTANT [DE LA COTISATION Al FFC FARIS CHAPTER S'ELEVE A 300.06 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INCISPENSAELE ) 
PAIEMENT EFFECTUE LE i_i_!,!_i_:/19! I! À L'ORDRE DE PPC PARIS CHAFTER. 
PAR I j CHEQUE BANCAIRE N° BANQUE 
] FÜs 





[ CHEQUE POSTAL 3 UVOLETS N° 
{ ] MANDAT LETTRE 
EVENTUELLEMENT: JE M'ARONNE 4 COMPTER Où ets BP TO Te 
JOINDRE À UOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPFE TIMEREE À 


UOTRE ADRESSE, 


UEUILLEZ ENUOYER TOUTE CORRESPONDANCE A: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 








